package circular;
sub New{
shift;
bless{ name=> shift};
}
 
sub DESTROY {
 my $self = shift;
 print "$self->{name} : nuked\n";
}
 
package main;
{

 my $a = New circular 'a';
 my $b = New circular 'b';
 
 $a->{next} = $b;
 $b->{next} = $a;


print "the end\n";
}